home *** CD-ROM | disk | FTP | other *** search
/ Ubisoft - ECTS 99 (UK) (Disc 2) (Press Kit) / Ubisoft - ECTS 99 (UK) (Disc 2) (Press Kit).bin / Ubi_soft.exe / Intro2.dxr / Internal_67_cd Original.ls < prev    next >
Encoding:
Text File  |  1999-08-18  |  1008 b   |  35 lines
  1. global language, cdnum
  2.  
  3. on mouseUp
  4.   unLoad()
  5.   contents = 0
  6.   SUPERDUPER = "0"
  7.   Mui = new(xtra("mui"))
  8.   mui2 = new(xtra("mui"))
  9.   response = alert(Mui, [#buttons: #OkCancel, #default: 1, #title: "Insert CD 2", #message: "Please Insert CD #2 To Acces This game", #icon: #note])
  10.   if response = 1 then
  11.     transfer = 1
  12.     myFile = new(xtra("fileio"))
  13.     fileName = "C:\CDnum2.dat"
  14.     repeat while transfer = 1
  15.       if not voidp(fileName) and not (fileName = EMPTY) then
  16.         openFile(myFile, fileName, 1)
  17.         if status(myFile) = 0 then
  18.           theFile = readFile(myFile)
  19.           transfer = 0
  20.           next repeat
  21.         end if
  22.         response2 = alert(mui2, [#buttons: #OkCancel, #default: 1, #title: "Insert CD 2", #message: "Please Insert CD #2 To Acces This game", #icon: #note])
  23.         if response2 = 2 then
  24.           transfer = 3
  25.         end if
  26.       end if
  27.     end repeat
  28.     closeFile(myFile)
  29.     myFile = 0
  30.     if transfer = 0 then
  31.       play movie "Deep"
  32.     end if
  33.   end if
  34. end
  35.